home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-04
/
zbpc_460.zip
/
GRAPHICS.EXE
/
COLOR.BAS
< prev
next >
Wrap
BASIC Source File
|
1991-03-19
|
385b
|
14 lines
MODE 3 : COORDINATE 320,200 ' Change to MODE 16, 19, 22 or 23 for your card
FOR I = 0 TO 23
COLOR = I
BOX FILL 0,I*25 TO 159,I*25+24
COLOR = I + 8
BOX FILL 160,I*25 TO 320,I*25+24
POKE &33B, I + 8
PRINT %(4,I*25+12) I;
POKE &33B, I
PRINT %(164,I*25+12) I+8
NEXT I
DO : UNTIL LEN(INKEY$)
MODE 2